home *** CD-ROM | disk | FTP | other *** search
/ How Many Bugs in a Box / How Many Bugs in a Box.cdr / bugs / submenu / 00320.ls < prev    next >
Encoding:
Text File  |  1995-03-29  |  421 b   |  20 lines
  1. on mouseDown
  2.   sound stop 1
  3.   sound stop 2
  4.   puppetSound("thet levelth")
  5.   set the castNum of sprite the clickOn to 1 + the castNum of sprite the clickOn
  6.   repeat while the mouseDown
  7.     updateStage()
  8.   end repeat
  9.   updateStage()
  10.   if the soundBusy of 1 then
  11.     repeat while the soundBusy of 1
  12.     end repeat
  13.   end if
  14.   puppetSound(0)
  15.   repeat with xxx = 1 to 48
  16.     puppetSprite(xxx, 0)
  17.   end repeat
  18.   go("levels")
  19. end
  20.